home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / recent / cl51_d.lha / CL-Install / InstallCL < prev    next >
Text File  |  1998-01-06  |  5KB  |  173 lines
  1. ;
  2. ; Installer-Script Connectline
  3. ;
  4. ; $VER: Connectline-Install 2.0 (05.11.95)
  5. ;
  6.  
  7. (set #clexists
  8. (cat    "Connectline ist bereits auf Ihrem System installiert.\n\n"
  9.                 "Möchten Sie die bestehende Installation Updaten oder "
  10.                 "Connectline komplett neu installieren?\n\n"
  11.                 "ACHTUNG!\n\n"
  12.                 "Bei einer Neuinstallation gehen Ihre bestehenden Daten "
  13.                 "komplett verloren, wenn Sie Connectline in demselben "
  14.                 "Verzeichnis wie die alte Version installieren!"
  15. ))
  16.  
  17. (set #install-hd-msg
  18. (cat    "Wohin soll das Connectline-Verzeichnis "
  19.                 "installiert werden?"
  20. ))
  21.  
  22. (set #install-hd-help
  23. (cat    "\nHier müssen Sie angeben, wo auf Ihrer "
  24.                 "Festplatte das Connectline-Verzeichnis installiert werden "
  25.                 "soll.\n\n"
  26.                 "Das Installationsprogramm erzeugt dann in dem von Ihnen "
  27.                 "angegebenen Verzeichnis eine neue Schublade mit dem "
  28.                 "Namen \"Connectline\".\n\n"
  29. ))
  30.  
  31. (set #copying-setpatch
  32. (cat    "Fnr den ordnungsgemäßen Betrieb von Connectline ist "
  33.                 "die Installation von SetPatch 43.6 notwendig."
  34. ))
  35.  
  36. (set #autostart
  37. (cat    "Soll Connectline beim Booten des Systems automatisch gestartet werden?"
  38. ))
  39.  
  40. (set #autostart-help
  41. (cat    "Es wird in die Datei \"S:User-Startup\" ein Assign \"CONNECTLINE:\" und das Kommando \"RUN >NIL: Connectline:CL eingefügt."
  42. ))
  43.  
  44. (set #autostart-norun
  45. (cat    "Es wird in die Datei \"S:User-Startup\" ein Assign \"CONNECTLINE:\" eingefügt."
  46. ))
  47.  
  48. (set #conv_pmbs
  49. (cat    "Möchten Sie die Daten Ihrer Prometheus-Installation konvertieren? \n"
  50.                 "Die alten Datensätze bleiben bei der Konvertierung erhalten.\n"
  51.                 "Aufgrund unterschiedlicher Datenstrukturen sind Abweichungen\n"
  52.                 "bei der Konvertierung nicht auszuschließen.\n"
  53. ))
  54.  
  55.  
  56. (procedure copy-setpatch
  57.         (copylib
  58.                 (prompt #copying-setpatch)
  59.                 (help @copylib-help)
  60.                 (source "installstuff/SetPatch")
  61.                 (dest "C:")
  62.                 (confirm)
  63.         )
  64. )
  65.  
  66. (procedure askcldir
  67.         (if (exists ("CONNECTLINE:" ) )
  68.                 (if (askbool
  69.                                 (prompt #clexists)
  70.                                 (help #clexists)
  71.                                 (default 0)
  72.                                 (choices "Update" "Neuinstallation" )
  73.                         )
  74.                         (set update_mode 1)
  75.                 )
  76.         )
  77.         (if (= 0 update_mode )
  78.                 (
  79.                         (set default-dest
  80.                                 (askdir
  81.                                         (prompt #install-hd-msg)
  82.                                         (help #install-hd-help)
  83.                                         (default @default-dest)
  84.                                 )
  85.                         )
  86.                         (set @default-dest
  87.                                 (tackon default-dest "Connectline")
  88.                         )
  89.                         (makedir @default-dest
  90.                                 (infos)
  91.                         )
  92.                 )
  93.                 (set @default-dest "Connectline:")
  94.         )
  95. )
  96.  
  97. (procedure copycl
  98.         (copyfiles
  99.                 (source "Connectline/")
  100.                 (dest @default-dest)
  101.                 (pattern "~(Prefs|Online|Log)")
  102.                 (prompt "Kopiere Connectline-Module" )
  103.                 (help @copyfiles-help)
  104.                 (confirm)
  105.                 (infos)
  106.         )
  107.         (complete 80)
  108.         (if (= 0 update_mode )
  109.                 (copyfiles
  110.                         (source "Connectline/")
  111.                         (dest @default-dest)
  112.                         (pattern "(Prefs|Online)")
  113.                         (prompt "Kopiere Connectline-Beispielkonfiguration" )
  114.                         (help @copyfiles-help)
  115.                         (confirm)
  116.                         (infos)
  117.                 )
  118.         )
  119. )
  120.  
  121. (procedure askautostart
  122.         (if (askbool
  123.                         (prompt #autostart)
  124.                         (help #autostart-help)
  125.                         (default 0)
  126.                         (choices "Automatisch starten" "Nicht automatisch starten" )
  127.                 )
  128.                 (startup "Connectline" 
  129.                         (prompt #autostart-help)
  130.                         (help #autostart-help)
  131.                         (command ("Assign Connectline: \"%s\"\nRun >NIL: Connectline:CL" @default-dest ) ) 
  132.                 )
  133.                 (startup "Connectline"
  134.                         (prompt #autostart-norun)
  135.                         (help #autostart-help)
  136.                         (command ("Assign Connectline: \"%s\"" @default-dest ) )
  137.                 )
  138.         )
  139. )
  140.  
  141. (procedure checkprometheus
  142.         (if (exists ("PROMETHEUS:" ) )
  143.                 (if (askbool
  144.                                 (prompt #conv_pmbs)
  145.                                 (help #conv_pmbs)
  146.                                 (default 0)
  147.                                 (choices "Konvertieren" "Nicht konvertieren" )
  148.                         )
  149.                 )
  150.                 (
  151.                         (makeassign "Connectline" @default-dir)
  152.                         (run "installstuff/pmbs2cl")
  153.                 )
  154.         )
  155. )
  156.  
  157.  
  158. ;
  159. ;
  160. ; GO!
  161. ;
  162. ;
  163.  
  164. (complete 0)
  165. (askcldir)
  166. (complete 1)
  167. (copycl)
  168. (complete 85)
  169. (askautostart)
  170. (complete 90)
  171. (copy-setpatch)
  172. (complete 100)
  173.